home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / qtool4.arc / AESHARED.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-02-13  |  1.3 KB  |  22 lines
  1. OPTION BASE 0
  2.  
  3. DIM   idx.nam$(10%),xk$(10%,6%),xh%(10%,4%)              ' Index variables
  4. DIM   ae.screens%(10000%)                                ' Screen holding
  5. DIM   ae.fg%(10%),ae.bg%(10%),ae.hg%(10%)                ' Colors
  6. DIM   dialog$(8%)                                        ' Dialog text
  7. DIM   ae.menu$(70%),ae.op%(70%),ae.hlp%(70%)             ' Menu options
  8. DIM   ae.ffld$(300%),ae.ffpr%(300%),ae.flp%(20%,2%)      ' File fielding
  9. DIM   ae.dirs$(10%)                                      ' AE directories
  10.  
  11.  
  12. COMMON SHARED /AE.INDEX/   idx.nam$(),xk$(),xh%()           ' Index variables
  13. COMMON SHARED /AE.COLOR/   ae.fg%(),ae.bg%(),ae.hg%()       ' Color attributes
  14. COMMON SHARED /AE.ERR/     aesb.fatal%,aesb.warning%        ' Sub Routine Errors
  15. COMMON SHARED /AE.SCBUF/   ae.screens%(),ae.sstack%         ' Screen control
  16. COMMON SHARED /AE.DIALOG/  dialog$()                        ' Dialog boxes
  17. COMMON SHARED /AE.MENUS.1/ ae.menu$(),ae.op%(),ae.hlp%()    ' Pull Down Menus
  18. COMMON SHARED /AE.MENUS.2/ mcount%,menu%,menop%             ' Pull Down Menus
  19. COMMON SHARED /AE.FIELDS/  ae.ffld$(),ae.ffpr%(),ae.flp%()  ' File fielding
  20. COMMON SHARED /AE.CONTROL/ ae.dirs$(),ae.sernum$            ' Controls
  21.  
  22.